home *** CD-ROM | disk | FTP | other *** search
- object ConvertForm: TConvertForm
- Left = 170
- Top = 40
- BorderStyle = bsDialog
- Caption = 'Conversion Charts'
- ClientHeight = 396
- ClientWidth = 284
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnClose = FormClose
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object ToolBar1: TToolBar
- Left = 0
- Top = 0
- Width = 284
- EdgeBorders = [ebTop, ebBottom]
- TabOrder = 0
- object Convertbtn: TBitBtn
- Left = 0
- Top = 2
- Width = 67
- Height = 22
- Caption = 'Convert'
- TabOrder = 0
- OnClick = ConvertbtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
- 3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000
- 000077777777777777773303333333333333337FFF333333333F370993333333
- 3399377773F33333337733033933333339333F7FF7FFFFFFF7FF77077797CCC7
- 977777777777777777773303339C333C9333337F3377F3377F33370333C93339
- C333377F33773FF77F33330333C39993C3333F7FFF7F777F7FFF770777C77777
- C77777777777777777773303333C333C3333337F33373FF7333337033333CCC3
- 3333377F33337773333333033333333333333F7FFFFFFFFFFFFF770777777777
- 7777777777777777777733333333333333333333333333333333}
- NumGlyphs = 2
- end
- object Panel1: TPanel
- Left = 67
- Top = 2
- Width = 128
- Height = 22
- BevelOuter = bvNone
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 1
- object Label35: TLabel
- Left = 59
- Top = 0
- Width = 11
- Height = 20
- Caption = '&&'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object ImpEdit: TEdit
- Left = 1
- Top = 0
- Width = 50
- Height = 21
- Ctl3D = True
- ParentCtl3D = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object MetEdit: TEdit
- Left = 76
- Top = 0
- Width = 50
- Height = 21
- Ctl3D = True
- ParentCtl3D = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- end
- object BitBtn1: TBitBtn
- Left = 195
- Top = 2
- Width = 58
- Height = 22
- TabOrder = 2
- Kind = bkClose
- end
- object Panel2: TPanel
- Left = 253
- Top = 2
- Width = 4
- Height = 22
- BevelOuter = bvNone
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 3
- end
- object BitBtn2: TBitBtn
- Left = 257
- Top = 2
- Width = 26
- Height = 22
- TabOrder = 4
- OnClick = BitBtn2Click
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333336633
- 3333333333333FF3333333330000333333364463333333333333388F33333333
- 00003333333E66433333333333338F38F3333333000033333333E66333333333
- 33338FF8F3333333000033333333333333333333333338833333333300003333
- 3333446333333333333333FF3333333300003333333666433333333333333888
- F333333300003333333E66433333333333338F38F333333300003333333E6664
- 3333333333338F38F3333333000033333333E6664333333333338F338F333333
- 0000333333333E6664333333333338F338F3333300003333344333E666433333
- 333F338F338F3333000033336664333E664333333388F338F338F33300003333
- E66644466643333338F38FFF8338F333000033333E6666666663333338F33888
- 3338F3330000333333EE666666333333338FF33333383333000033333333EEEE
- E333333333388FFFFF8333330000333333333333333333333333388888333333
- 0000}
- NumGlyphs = 2
- end
- end
- object PageControl1: TPageControl
- Left = 2
- Top = 36
- Width = 280
- Height = 359
- ActivePage = TabSheet2
- TabOrder = 1
- object TabSheet1: TTabSheet
- Caption = 'Temperature'
- object Label34: TLabel
- Left = 2
- Top = 152
- Width = 270
- Height = 13
- Caption =
- '37 ------------------------------98.6--- Normal Body Temperature' +
- ' --'
- end
- object Label1: TLabel
- Left = 15
- Top = 312
- Width = 15
- Height = 13
- Alignment = taRightJustify
- Caption = '-40'
- end
- object Label2: TLabel
- Left = 15
- Top = 291
- Width = 15
- Height = 13
- Alignment = taRightJustify
- Caption = '-30'
- end
- object Label3: TLabel
- Left = 15
- Top = 271
- Width = 15
- Height = 13
- Alignment = taRightJustify
- Caption = '-20'
- end
- object Label4: TLabel
- Left = 15
- Top = 250
- Width = 15
- Height = 13
- Alignment = taRightJustify
- Caption = '-10'
- end
- object Label5: TLabel
- Left = 24
- Top = 229
- Width = 6
- Height = 13
- Alignment = taRightJustify
- Caption = '0'
- end
- object Label6: TLabel
- Left = 18
- Top = 208
- Width = 12
- Height = 13
- Alignment = taRightJustify
- Caption = '10'
- end
- object Label7: TLabel
- Left = 18
- Top = 188
- Width = 12
- Height = 13
- Alignment = taRightJustify
- Caption = '20'
- end
- object Label8: TLabel
- Left = 18
- Top = 167
- Width = 12
- Height = 13
- Alignment = taRightJustify
- Caption = '30'
- end
- object Label9: TLabel
- Left = 18
- Top = 146
- Width = 12
- Height = 13
- Alignment = taRightJustify
- Caption = '40'
- end
- object Label10: TLabel
- Left = 18
- Top = 126
- Width = 12
- Height = 13
- Alignment = taRightJustify
- Caption = '50'
- end
- object Label11: TLabel
- Left = 18
- Top = 105
- Width = 12
- Height = 13
- Alignment = taRightJustify
- Caption = '60'
- end
- object Label12: TLabel
- Left = 18
- Top = 84
- Width = 12
- Height = 13
- Alignment = taRightJustify
- Caption = '70'
- end
- object Label13: TLabel
- Left = 18
- Top = 63
- Width = 12
- Height = 13
- Alignment = taRightJustify
- Caption = '80'
- end
- object Label14: TLabel
- Left = 18
- Top = 43
- Width = 12
- Height = 13
- Alignment = taRightJustify
- Caption = '90'
- end
- object Label15: TLabel
- Left = 12
- Top = 22
- Width = 18
- Height = 13
- Alignment = taRightJustify
- Caption = '100'
- end
- object Label16: TLabel
- Left = 78
- Top = 22
- Width = 190
- Height = 13
- Caption = '212 ------------------ Boiling --------------------------'
- end
- object Label17: TLabel
- Left = 78
- Top = 43
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '194'
- end
- object Label18: TLabel
- Left = 78
- Top = 63
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '176'
- end
- object Label19: TLabel
- Left = 78
- Top = 84
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '158'
- end
- object Label20: TLabel
- Left = 78
- Top = 105
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '140'
- end
- object Label21: TLabel
- Left = 78
- Top = 126
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '122'
- end
- object Label22: TLabel
- Left = 78
- Top = 146
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '104'
- end
- object Label23: TLabel
- Left = 78
- Top = 167
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '86'
- end
- object Label24: TLabel
- Left = 78
- Top = 188
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '68'
- end
- object Label25: TLabel
- Left = 78
- Top = 208
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '50'
- end
- object Label26: TLabel
- Left = 78
- Top = 229
- Width = 193
- Height = 13
- Caption = '32 --------------------- Freezing -----------------------'
- end
- object Label27: TLabel
- Left = 78
- Top = 250
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '14'
- end
- object Label28: TLabel
- Left = 78
- Top = 271
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '-4'
- end
- object Label29: TLabel
- Left = 78
- Top = 291
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '-22'
- end
- object Label30: TLabel
- Left = 78
- Top = 312
- Width = 25
- Height = 13
- AutoSize = False
- Caption = '-40'
- end
- object Label31: TLabel
- Left = 3
- Top = 2
- Width = 93
- Height = 13
- Caption = 'Celcius to Farenheit'
- end
- object Label32: TLabel
- Left = 176
- Top = 286
- Width = 34
- Height = 13
- Caption = 'Celcius'
- end
- object Label33: TLabel
- Left = 166
- Top = 311
- Width = 44
- Height = 13
- Caption = 'Farenheit'
- end
- object CentTrack: TTrackBar
- Left = 32
- Top = 15
- Width = 45
- Height = 317
- Max = 100
- Min = -40
- Orientation = trVertical
- Frequency = 2
- Position = 100
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- TickMarks = tmBoth
- TickStyle = tsAuto
- OnChange = CentTrackChange
- end
- object CentPanel: TPanel
- Left = 221
- Top = 282
- Width = 48
- Height = 21
- Alignment = taLeftJustify
- BorderStyle = bsSingle
- Color = clWhite
- TabOrder = 1
- end
- object FarPanel: TPanel
- Left = 221
- Top = 308
- Width = 48
- Height = 21
- Alignment = taLeftJustify
- BorderStyle = bsSingle
- Color = clWhite
- TabOrder = 2
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Weights && Measures'
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 272
- Height = 331
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- 'Length'
- ''
- ' 1 Millimeter'
- ' = 0.03937 inches'
- ''
- ' 1 Centimeter'
- ' = 0.3937 inches'
- ''
- ' 1 Decimeter'
- ' = 3.937 inches'
- ''
- ' 1 Meter'
- ' = 39.37 inches'
- ' = 3.28 feet'
- ' = 1.094 yards'
- ''
- ' 1 Dekameter'
- ' = 32.808 feet'
- ''
- ' 1 Kilometer'
- ' = 3280.8 feet = 0.621 miles'
- ''
- ' Area'
- ''
- ' 1 Square Millimeter'
- ' = 0.002 square inches'
- ''
- ' 1 Square Centimeter'
- ' = 0.155 square inches'
- ''
- ' 1 Square Decimeter'
- ' = 15.5 square inches'
- ''
- ' 1 Square Meter'
- ' = 10.764 square feet'
- ' = 1.196 square yards'
- ''
- ' 1 Are'
- ' = 119.599 square yards'
- ' = 0.025 acres'
- ''
- ' 1 Hectare'
- ' = 2.471 acres'
- ''
- ' 1 Square Kilometer'
- ' = 0.386 square miles'
- ' = 247.1 acres'
- ''
- 'Volume'
- ''
- ' 1 Milliliter'
- ' = 0.271 fluid drams'
- ''
- ' 1 Litre'
- ' = 1.057 liquid quarts'
- ' = 1.74 pints'
- ''
- ' 1 Decalitre'
- ' = 2.642 gallons'
- ''
- ' 1 Hecolitre'
- ' = 26.418 gallons'
- ''
- 'Weight'
- ''
- ' 1 Milligram'
- ' = 0.015 grains'
- ''
- ' 1 gram'
- ' = 15.432 grains'
- ' = 0.035 ounces'
- ''
- ' 1 Kilogram'
- ' = 25.274 ounces'
- ' = 2.205 pounds'
- ''
- ' 1 Metric Ton'
- ' = 1.102 short tons'
- ' = 2,204.623 pounds')
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Gifts'
- object Memo2: TMemo
- Left = 0
- Top = 0
- Width = 272
- Height = 331
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- 'Month'
- ' Birthstones'
- ' Flowers'
- ''
- 'January'
- ' Garnet '
- ' Carnation, Snowdrop '
- ''
- 'February'
- ' Amethyst'
- ' Violet, Primrose'
- ''
- 'March'
- ' Bloodstone, Aquamarine'
- ' Jonquil, Daffodil'
- ''
- 'April'
- ' Diamond'
- ' Sweet Pea, Daisy'
- ''
- 'May'
- ' Emerald'
- ' Lily of the Valley, Hawthorn'
- ''
- 'June'
- ' Pearl, Moonstone, Alexandrite'
- ' Rose, Honeysuckle'
- ''
- 'July'
- ' Ruby'
- ' Larkspur, waterlilly'
- ''
- 'August'
- ' Sardonyx, Peridot'
- ' Poppy, Gladiolus'
- ''
- 'September'
- ' Saphire'
- ' Aster, Morning Glory'
- ''
- 'October'
- ' Opal, Tourmailine'
- ' Calendula, Cosmos'
- ''
- 'November'
- ' Topaz'
- ' Chrysanthemum'
- ''
- 'December'
- ' Turquoise, Zircon'
- ' Narcissus, Holly')
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Anniversaries'
- object Memo3: TMemo
- Left = 0
- Top = 0
- Width = 272
- Height = 331
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- 'Anniversaries'
- ''
- '1st'
- ' -- Paper (Clocks)'
- ''
- '2nd'
- ' -- Cotton (China)'
- ''
- '3rd'
- ' -- Leather (Crystal, Glass)'
- ''
- '4th'
- ' -- Linen, Silk (Electrical)'
- ''
- '5th'
- ' -- Wood (Silverware)'
- ''
- '6th'
- ' -- Iron (Wood)'
- ''
- '7th'
- ' -- Wool, Copper (Desk Sets, Pen-Pencil Sets)'
- ''
- '8th'
- ' -- Bronze (linens, Laces)'
- ''
- '9th'
- ' -- Pottery, China (Leather)'
- ''
- '10th'
- ' -- Tin, Aluminium (Diamond, Jewelry)'
- ''
- '11th'
- ' -- Steel (Fashion Jewelry)'
- ''
- '12th'
- ' -- Silk (Pearls, Coloured Gems)'
- ''
- '13th'
- ' -- Lace (Textiles)'
- ''
- '14th'
- ' -- Foux Ivory (Gold Jewelry) '
- ''
- '15th'
- ' -- Crystal (Watches)'
- ''
- '20th'
- ' -- China (Platinum)'
- ''
- '25th'
- ' -- Silver (Sterling Silver)'
- ''
- '30th'
- ' -- Pearl (Diamond)'
- ''
- '35th'
- ' -- Coral (Jade)'
- ''
- '40th'
- ' -- Ruby (Ruby)'
- ''
- '45th'
- ' -- Saphire'
- ''
- '50th'
- ' -- Gold'
- ''
- '55th'
- ' -- Emerald'
- ''
- '60th'
- ' -- Diamond')
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- end
- object ConvertPop: TPopupMenu
- AutoPopup = False
- Left = 146
- Top = 148
- object InchesCentimeters1: TMenuItem
- Caption = 'Inches && Centimeters'
- OnClick = InchesCentimeters1Click
- end
- object FeetMeters1: TMenuItem
- Tag = 1
- Caption = 'Feet && Meters'
- OnClick = InchesCentimeters1Click
- end
- object YardsMeters1: TMenuItem
- Tag = 2
- Caption = 'Yards && Meters'
- OnClick = InchesCentimeters1Click
- end
- object MilesKilometers1: TMenuItem
- Tag = 3
- Caption = 'Miles && Kilometers'
- OnClick = InchesCentimeters1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object SquareInchesCentimeters1: TMenuItem
- Tag = 4
- Caption = 'Square Inches && Centimeters'
- OnClick = InchesCentimeters1Click
- end
- object SquareFeetDecimeters1: TMenuItem
- Tag = 5
- Caption = 'Square Feet && Decimeters'
- OnClick = InchesCentimeters1Click
- end
- object SquareYardsMeters1: TMenuItem
- Tag = 6
- Caption = 'Square Yards && Meters'
- OnClick = InchesCentimeters1Click
- end
- object SquareMilesKilometers1: TMenuItem
- Tag = 7
- Caption = 'Square Miles && Kilometers'
- OnClick = InchesCentimeters1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object PintsLitres1: TMenuItem
- Tag = 8
- Caption = 'Pints && Litres'
- OnClick = InchesCentimeters1Click
- end
- object GallonsLitres1: TMenuItem
- Tag = 9
- Caption = 'Gallons && Litres'
- OnClick = InchesCentimeters1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object OuncesGrams1: TMenuItem
- Tag = 10
- Caption = 'Ounces && Grams'
- OnClick = InchesCentimeters1Click
- end
- object PoundsGrams1: TMenuItem
- Tag = 11
- Caption = 'Pounds && Grams'
- OnClick = InchesCentimeters1Click
- end
- object TonsTonnes1: TMenuItem
- Tag = 12
- Caption = 'Tons && Tonnes'
- OnClick = InchesCentimeters1Click
- end
- end
- end
-